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Appendix A 



Source Code 

/** 

* Superclass for all classes 
*/ 

import java.io.*; 
class Super { 

static FileOutputStream fos; 
public static void trace(String s) { 

System.out.println(s); 

} 

} 

J-k* 

* Superclass for all record types. Provides methods to read adata in buffer. 

*/ 

import java.io.*; 

import java.lang.reflect.*; 

import java.lang.Class.*; 

class Record extends Super { 
int[] buffer; 
int length; 

/** 

* reads data from the sysadata file and fills the objects buffer 
**/ 

public void fillBuffer(FileInputStream fis, int _length) { 
buffer = new int|_length]; 

for (int i= 0; i<_length;i++){ 
try{ 

buffer [i] = fis.read(); 
} catch(IOException e) { 
trace("Error in M +this.getClass()+ M :'' + e); 

} 

} 

} 
} 

* SysAdata reads and interprets a COBOL Associated Data (ADATA) file 

* and creates the XMI document 

*/ 

import java.io.*; 
import java.util. Vector; 
import com.ibm.ims.message.*; 

public class SysAdata extends Super { 
static FilelnputStream fis = null; 
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static CHSRecord chsrec; 
static CURecord cu rec; 

static Vector symbolVector = new Vector(); 
static Id model = null; 
static int rootLength = 0; 
/** 

* addID adds one or more Dataltem object to the model recursevily 
*/ 

public static int addID(Id parent, int symbolNumber){ 

SymbolRecord symbol = (SymbolRecord) symbolVector.elementAt(symbolNumber); 
try{ 

trace("adding "+symbol.getName()); 
Id id = parent.add(Type.DATA_ITEM, null); 
id.set(Property.NAME, symbol.getName()); 
id.set(Property.TYPE, symbol.getAttribute()); 
id.set(Property.LENGTH, symbol.getLengthO); 
id.set(Property.HAS_VALUE, ""+symbol.hasValue()); 
if(symbol.hasValue()) { 

rootLength = rootLength + symbol.getSize(); 

id.set(Property. VALUE, ""); 

} 

symbolNumber++; 

if]((symbol.hasValue() = false) && (symbolNumber < symbolVector.size())){ 

SymbolRecord nextSymbol = (SymbolRecord) 
symbolVector.elementAt(symbolNumber); 

if(nextSymbol.redefines()) { 

symbolNumber = addID(id,symbolNumber); 

} 

else { 

while ((symboLgetLevel() <nextSymbol.getLevelO) && (symbolNumber 

< symbol Vector. size())){ 

symbolNumber = addID(id,symbolNumber); 
if(symbolNumber < symbolVector. size()) 

nextSymbol = (SymbolRecord) 

symbolVector.elementAt(symbolNumber); 

} 

} 

} 

}catch(Exception e){e.printStackTrace();} 

// returns the number of the next symbol to be processed 
return symbolNumber; 

} 

public static void main(String args[]) { 
boolean loopflag = true; 
int counter = 0; 

if(args. length > 1){ 

//open adata file which is given as first argument in the parameter list 
try { 

fis = new FileInputStream(args[0]); 

//fis = new FileInputStream( H d:/jan/parser/sysadata/data.adt"); 
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} 

catch(java.io.FileNotFoundException e) { 
System.out.println("error" + e); 
return; 

} 

//reads first common header section (CHSRecord) from file 
chs_rec = new CHSRecord(fis); 

/** 

* loop reads records from the adata file 

* checks for CURecord, SymbolRecord and skips all other records 

* stores SymbolRecords in symbolVector 
*/ 

do{ 

switch (chs_rec.getrecordType()){ 
case 2: { 

//Compilation Unit Record, 02hex 
curec = new CURecord(fis); 
if(cujec.getType() = 1) 
loopflag = false; 
chsjrec.fill(fis); 
break;} 
case 66: { 

//Symbol Record, 042hex 

SymbolRecord symbolrecord = new 
SymbolRecord(fis } chs_rec.getrecordLength()); 

if(symbolrecord.getType()=64) 

symbolVector.addElement(symbolrecord); 
chs_rec.fill(fis); 
break;} 

default: { 

//all other records are skipped 
skip(chs_rec .getrecordLength()) ; 
chs_rec.fill(fis); 
break;} 

} 

}while(loopflag); 
try{ 

fis.close(); 
}catch(IOException e){trace(""+e);} 



try { 



model = Model.instance().getSession(); 
Id root = model.add(Type.DATA_ITEM, null); 
rootset(Property.NAME, "ROOT"); 
root.set(Property.TYPE, "ROOT"); 
root.set(Property.HAS_VALUE, "False"); 

do{ 

counter = addID(root, counter); 
}while(counter<symbolVector.size()); 
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root.set(Property.LENGTH, ""+rootLength); 

Model.instance().save(root, args[l], Model.DEFAULT, new java.util.Vector()); 
//Model.instance().save(root, "sample.xml", Model.DEFAULT, new java.util.Vector()); 
}catch (Exception e) {e.printStackTrace();} 

} 

else 

trace("No input and output file given\nSyntax is: java SysAdata input.adt output.xml n ); 

} 

/** 

* skips the given amount of bytes in the SysAdata input file. 
*/ 

public static void skip(int length) { 
try{ 

fis.skip(length); 

}catch(java.io.IOException e) {trace( M,, +e);} 

} 
} 

jit it 

* CHSRecord: Common header Section - xOOOl 

* 12 byte long, common for all record types 
*/ 

import j a va.io.*; 

class CHSRecord extends Record { 

public byte langCode; // Language Code 

public short recordType; // Record Type 

public byte sysadataLevel;// SysAdata Architecture Level 

public byte contFlag; // bit 1 : record is continued; bit 2: integers are Little-Endian; bits 3-8: reserved 

public byte editionLevel; // Indicates a new format for a specific record type; usually 0 

public int reserve; // Reserved for future use 

public short recordLength; // Record Length following header (in bytes) 

/** 

* Constructor 
**/ 

public CHSRecord(FileInputStream fis){ 
fill(fis); 

} 

/*♦ 

* fills all fields of the Common Header Section Record 
*/ 

public void fill(FileInputStream fis) { 
super.fillBuffer(fis,12); 

langCode = new Integer(buffer[0]).byteValue(); 

recordType = new Integer(buffer[l]+(buffer[2]*256)).shortValue(); //xchanges byte 2 and 3; shifts 
byte3 left 

sysadataLevel = new Integer(buffer[3]).byteValue(); 
contFlag = new Integer(buffer[4]).byteValue(); 
editionLevel = new Integer(buffer[5]).byteValue(); 
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recordLength = new Integer(buffer[10]+(buffer[l l]*256)).shortValue(); 

} 

/** 

* returns length of the following record 
*/ 

public short getrecordLength(){ 
return(recordLength); 

} 

* returns type of the following record in decimal 
*/ 

public short getrecordType() { 
return(recordType) ; 

} 

/** 

* prints out attributes of CHSRecord 
*/ 

public void print(){ 

trace("langCode " + langCode + "jrecordType " +recordType+ "jsysadataLevel "+sysadataLevel+ 
";contFlag "+contFlag+ "jeditionLevel "+editionLevel+ ";recordLength "+recordLength); 
} 

} 

* Compilation Unit Start/End Record - x0002 

* 8 bytes long 
*/ 

import java.io.*; 

class CURecord extends Record { 
short type; 

/** 

* CURecord constructor 
*/ 

public CURecord(FileInputStream fis) { 
fill(fis); 

} 

/** 

* fills all needes fields of the Compilation Unit Start/End Record 
*/ 

public void fill(FileInputStream fis) { 
super.fillBuffer(fis,8); 

type = new Integer(buffer[0]+(buffer[l]*256)).shortValue(); 

} 

/** 

* returns the type of the CURecord 

* compilation unit types are: xO00O=Start, x0001=end 
*/ 

public int getType() { 
return type; 

} 
} 
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* Symb IRecord: Common header Section - xOOOl 

* variable lenght, contains description of all symbols 

* All get methods are used to fill the Dataltems in the XMI Document. 
*/ 

import java.math.* ; 

class SymbolRecord extends Record { 

//fields of the Common Header Section 

int symbolld; 

byte level; 

byte symbolType; 

byte symbolAttribute; 

byte[] clauses = new byte[ 1 ] ; 

Biglnteger clausesB; 

byte[] flags 1 = new byte[l]; 

Biglnteger flags IB; 

int size; 

int parentld; 

int redefinedld; 

short symbolNameLen; 

String symbolName; 

//symbolAttribute Values are put into the attribute tag of the Dataltem 
static String symbolAttribute Values[] = { 

Mil 

J 

"Numeric", 

"Alphanumeric", 

"Group", 

"Pointer", 

"IndexDataltem", 

"IndexName", 

"Condition", 

MM III! Mil Mil IMI MM MM 

J > ) ) ) » J 

"File", 
"SortFile", 

MM ltd IMI II II IIM 

"ClassName", 
"ObjectReference"} ; 

/** 

* Constructor 
*/ 

public SymbolRecord(java.io.FileInputStream fis, int length) { 
fill(fis, length); 

} 

/** 

* fills needed fields of Symbol Record 
*/ 

public void fill(java.io.FileInputStream fis, int length) { 
super.fillBuffer(fis,length); 
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symbolic! = new lnteger(buffer[0] + buffer[l]*16*16 + buffer[2]*16*16*16*16 
buffer[3]* 16* 16* 16* 1 6* 1 6* 16).intValue(); 

level = new Integer(buffer[8]).byteValue(); 

symbolType = new Integer(buffer[10]).byteValue(); 

symbolAttribute = new Integer(buffer[l l]).byteValue(); 

clauses[0] = new Integer(buffer[12]).byteValue(); 

clausesB = new Biglnteger(clauses); 

flagsl[0] = new Integer(buffer[13]).byteValue(); 
" flagslB = new Biglnteger(flagsl); 

size = new Integer(buffer[20] + buffer[21]*16*16 + buffer[22]*16*16*16*16 
buffer[23]* 1 6* 16* 1 6* 1 6* 1 6* 1 6).intValue(); 

parentld = new Integer(buffer[44] + buffer[45]*16*16 + buffer[46]*16*16*16*16 
buffer[47]* 1 6* 1 6* 16* 1 6* 1 6* 1 6).intValue(); 

redefinedld = new Integer(buffer[48] + buffer[49]*16*16 + buffer[50]*16*16*16*16 
buffer[5 1]*16*16*16*16*16*1 6).intValue(); 

symbolNameLen = new Integer(buffer[90] + buffer[91]*16*16).shortValue(); 

char[] temp = new charfsymbolNameLen]; 
intj=0; 

for(int i= 1 04 ;i<( 1 04+s ymbolNameLen) ; i++) { 
temp[j]=(char)buffer[i] ; 

j ++ ; 

} 

symbolName = new String(temp); 

} 

public String getAttribute() { 

return symbolAttribute Values [symbolAttribute] ; 

} 

public String getLength(){ 

return new Integer(size).toString() ; 

} 

public int getLevel(){ 

return level; 

} 

public String getName(){ 

return symbolName; 

} 

public int getParentId() { 

return parentld; 

} 

public int getSize() { 

return size; 

} 

public int getSymbolId() { 

return symbolld; 

} 

public int getType(){ 

return symbolType; 

> 

/** 

* bit 7 is 1 if the symbol is redefined 

* symbol is group if symbolAttribute = 3 
*/ 
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public boolean hasValue(){ 

if(flagslB.testBit(7) || symbolAttribute = 3) 
return false; 

else 

return true; 

} 

public void print() { 

trace("symbolID:"+ symbolId+ level:"+ level+", parentld:"+parentld+", size:"+size+ 
redefined: "+flags 1 B .testBit(7)+", symbolAttribute : "+symbolAttribute+", redefinedld: "+redefinedld+ 
name: ^ +symbolName+ ,, ,has Value: "+hasValue()); 
} 

/** 

* bit 5 is high if this symbol redefines another one 
*/ 

public boolean redefines() { 

return clausesB.testBit(S); 

} 

} 
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Appendix B 
Classes 

In various embodiments, each record type is implemented as a class that understands 
how to handle the binary data from the SysAdata file 78 and provide the data to other classes 
via defined access methods. Figure 9 illustrates the relationship among the classes. A more 
detailed description on attributes and methods of each class follows. The source code of all 
classes may be found in Appendix A. 

Class Super 

This class offers methods and attributes that are needed by all classes. 
Attributes 

No Attributes defined. 
Methods 

public static void trace(String s) 

trace is used to trace error statements. It replaces Java's System.out.print(). 
Class Record 

This class offers methods and attributes that are needed by all Record classes. 
Attributes 

int[] buffer 

Array of ints that stores the actual data from the SysAdata file 78. 
• int length 

Stores the size of the buffer array. 
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Methods 

public void fillBuffer(FileInputStream fis, int 
Fills the buffer array. 



length) 



Class SvsAdata 

SysAdata wraps methods and attributes to read the SysAdata file 78 and create the 
XML document template 58. Initially, the complete SysAdata file 78 is processed and all 
data-entry symbols are saved in the symbolVector. Thereafter, the symbolVector is processed 
and an XMI model that resembles the document is created. 

Attributes 

• FilelnputStream fis 
Wraps the input adata file. 

• CHSRecord chsrec 

Is used to temporarly save a CHSRecord. 

• CURecord curec 

Is used to temporarly save a CURecord. 

• Vector symbolVector 

The symbolVector stores all SymbolRecords that are extracted from the adata 
file. 

• Id model 

model is the root element for the XMI toolkit object hierarchy. 
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int rootLength 

Stores the added up length of all Dataltem.VALUEs. 



Methods 

• public static void main(String args[]) 

The main method contains the actual loop, in which the SysAdata file is 
processed. The assembly of the model for the XML document template 58 is 
initiated here as well. 

• public static int addID(Id parent, int symbolNumber) 

Recursive method to assemble the model that is then saved as XML. 
Parameters are: 

- the parents Id, such that the next symbol can be added on the right level. 

- the position number of the symbol to be added in the symbolVector. 
addID returns the index of the next SymbolRecord object to be processed. 

• public static void skip(int length) 
Replaces FilelnputStream.skipQ. 



Class CHSRecord 

Throughout the processing of the SysAdata file 78, each common header section 
instantiates this class. 
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Attributes 

A description of these attributes is found in Table 1. 

• byte langCode 

• short recordType 

• byte sysadataLevel 

• byte contFlag 

• byte editionLevel 

• public int reserve 

• public short recordLength 

Methods 

• public CHSRecord(FileInputStream fis) 

The constructor instantiates the CHSRecord class. The FilelnputStream 
object is handed over from the calling instance. 

• public void fill(FileInputStream fis) 

Calls Record. fillBufferO and then extracts the binary data stored in buffer[] 
into the referring attribute. 

• public short getrecordLength() 

Returns the length of the following record. Is needed in one embodiment to 
process the input file correctly. 
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public short getrecordType() 
Returns the record type. 



Class CURecord 

A compilation unit start/end record instantiates this class. The CURecord class is 
used to control the processing of the SysAdata file 78. In certain embodiments, if getType() 
returns 1, the processing is stopped. 

Attributes 

• short type 

Methods 

• public CURecord(FileInputStream fis) 

The constructor instantiates the CURecord class. The FilelnputStream object 
is handed over from the calling instance. 

• public void fill(FileInputStream fis) 

Calls Record.fillBuffer() and then extracts the binary data stored in buffer[] 
into the refering attribute, 
public int getType() 
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Class SvmbolRecord 

Any symbol record found during the processing of the SysAdata file 78 instantiates 
this class. 

Attributes 

A detailed description of these attribute is given in Table 3. The clauses and the 
flags 1 attribute are converted into Biglntegers and are therefore stored in an array with size 
one to provide the correct input to the Biglnteger constructor. The Biglnteger object is used, 
because it allows bit-operations on its value. 

• int symbolld 

• byte level 

• byte symbolType 

• byte symbolAttribute 

• byte[] clauses = new byte[l] 

• Biglnteger clausesB 

• byte[] flagsl = newbyte[l] 

• Biglnteger flags IB 

• int size 

• int parentld 

• int redefinedld 

• short symbolNameLen 
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• String symbolName 

• static String symbolAttributeValues[] 

This array contains descriptive names for the Dataltem.TYPE tag. 
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Appendix C 



Document Type Definition (DTP) 
<?xml version="1.0" encoding="UTF-8 M ?> 



<!-- XMI Automatic DTD Generation -> 
<!-- Metamodel: Dataltem --> 

<!-- -> 

<!- --> 
<!~ XMI is the top-level XML element for XMI transfer text — > 

<!-- -> 



<!ELEMENT XMI (XMI.header, XMI.content?, XMI.difference*, 

XMI.extensions*) > 
<!ATTLIST XMI 

xmi.version CDATA #FIXED M 1.0 n 

timestamp CDATA #IMPLIED 

verified (true | false) #IMPLIED 

> 



<!- ~> 

<!__ -> 
<!-- XMI.header contains documentation and identifies the model, — > 

<!— metamodel, and metametamodel — > 

. <!- --> 



<!ELEMENT XMI.header (XMI.documentation?, XMI.model*, XMI.metamodel*, 
XMI.metametamodel*) > 

<!- -> 

<!- -> 
<!— documentation for transfer data — > 

<!- -> 



<!ELEMENT XMI.documentation (#PCD ATA | XMI.owner | XMI.contact | 
XMI.longDescription | XMI.shortDescription | 
XMI.exporter | XMI.exporterVersion | 
XMLnotice)* > 

<!ELEMENT XMI.owner ANY > 

<!ELEMENT XMI.contact ANY > 

< [ELEMENT XMI.longDescription ANY > 

< [ELEMENT XMI.shortDescription ANY > 
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<!ELEMENT XMI.exporter ANY > 
<!ELEMENT XMI.exporterVersion ANY > 
<!ELEMENT XMI.exporterlD ANY > 
<!ELEMENT XMI.notice ANY > 

<!~ 

<!-- 

<!~ XMI.element.att defines the attributes that each XML element 
<!~ that corresponds to a metamodel class must have to conform to 
<!— the XMI specification. 

<!~ 

<!ENTITY % XMI.element.att 

■xmi.id ID #IMPLIED xmi.label CD ATA #IMPLIED xmi.uuid 
CD ATA #IMPLIED ' > 

<!- 

<!-- 

<!-- XMLlink.att defines the attributes that each XML element that 
<!— corresponds to a metamodel class must have to enable it to 
<!— function as a simple XLink as well as refer to model 
<!— constructs within the same XMI file. 

<!-- 

<!ENTITY % XMI.link.att 

'xml:link CD ATA #IMPLIED inline (true | false) #IMPLIED 
actuate (show | user) #IMPLIED href CD ATA #IMPLIED role 
CD ATA #IMPLIED title CD ATA #IMPLIED show (embed | repL 
| new) #IMPLIED behavior CD ATA #IMPLIED xmi.idref IDREF 
#IMPLIED xmi.uuidref CD ATA #IMPLIED' > 

<!-- 

<!-- 

<!— XMLmodel identifies the model(s) being transferred 

<!-- 

<!ELEMENT XMLmodel ANY > 
<!ATTLIST XMLmodel 
% XMLlink.att; 

xmi.name CD ATA #REQUIRED 
xmi.version CD ATA #IMPLIED 

> 

<!-- 

<!-- 

<!-- XMI.metamodel identifies the metamodel(s) for the transferred 
<!-- data 
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<!ELEMENT XMI.metamodel ANY > 
<!ATTLIST XMI.metamodel 
%XMI.link.att; 

xmi.name CD ATA #REQUIRED 
xmi.version CD ATA #IMPLIED 

> 

<!~ 

<!-- 

<!— XMI.metametamodel identifies the metametamodel(s) for the 
<!-- transferred data 

<!- 



<!ELEMENT XMI.metametamodel ANY > 
<!ATTLIST XMI.metametamodel 
%XMI.link.att; 

xmi.name CD ATA #REQUIRED 
xmi.version CD ATA #IMPLIED 

> 

<!- 

<!-- 

<!— XMI.content is the actual data being transferred 

<!-- 

<!ELEMENT XMI.content ANY > 

<!- 

<!-- 

<!— XMLextensions contains data to transfer that does not conform 
<!-- to the metamodel(s) in the header 

<!-- 

<!ELEMENT XMLextensions ANY > 
<!ATTLIST XMLextensions 

xmi.extender CD ATA # REQUIRED 

> 

<!-- 

<!-- 

<!— extension contains information related to a specific model 
<!— construct that is not defined in the metamodel(s) in the header 
<!-- 

<!ELEMENT XMI.extension ANY > 
<! ATTLIST XMI.extension 

%XMI.element.att; 

%XMI.link.att; 
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xmi.extender CD ATA # REQUIRED 
xmi.extenderlD CDATA #REQUIRED 

> 



<!-- 

<!- 

<!— XML difference holds XML elements representing differences to a 
<!— base model 

<!-- 



<!ELEMENTXMLdifference(XMLdifference | XMLdelete | XMLadd | 

XMI.replace)* > 
<!ATTLIST XML difference 

%XMLelement.att; 

%XMI.link.att; 

> 

<!- 

<!-- 

<!— XMLdelete represents a deletion from a base model 

<!- 



<!ELEMENT XMLdelete EMPTY > 
<!ATTLIST XMLdelete 

%XMLelement.att; 

%XMI.link.att; 

> 

<!- 

<!-- 

<!— XMLadd represents an addition to a base model 
<!~ 



<!ELEMENT XMLadd ANY > 
<!ATTLIST XMLadd 

%XMLelement.att; 

%XMI.link.att; 

xmi.position CDATA 

> 

<!- 

<!- 

<!— XMI.replace represents the replacement of a model construct 

<!— with another model construct in a base model 

<!-- 



< [ELEMENT XMI.replace ANY > 
<!ATTLIST XMI.replace 

%XMLelement.att; 

%XMI.link.att; 
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xmi.position CD ATA 

> 



<!- -> 

<!~ -> 
<!— XMLreference may be used to refer to data types not defined in — > 

<!— the metamodel — > 

<!~ --> 



< ELEMENT XMLreference ANY > 
<!ATTLIST XMLreference 
%XMI.link.att; 

> 

<!- -> 

<!- -> 
<!~ This section contains the declaration of XML elements ~> 
<!~ representing data types ~> 
<!- . -> 



<!ELEMENT XMI.TypeDefinitions ANY > 
<!ELEMENT XMI.field ANY > 

< IELEMENT XMI.seqltem ANY > 
<!ELEMENT XMI.octetStream (#PCDATA) > 
<!ELEMENT XMI.unionDiscrim ANY > 

< IELEMENT XMI.enum EMPTY > 
<!ATTLIST XMLenum 

xmi.value CD ATA #REQUIRED 

> 

<!ELEMENT XMI.any ANY > 
<!ATTLIST XMI.any 
%XMI.link.att; 

xmi.type CD ATA #IMPLIED 
xmi.name CDATA #IMPLIED 

> 

<!ELEMENT XMI.CorbaTypeCode (XMI.CorbaTc Alias | XMI.CorbaTcStruct | 
XMI.CorbaTcSequence | XMI.CorbaTcArray | 
XMI.CorbaTcEnum | XMI.CorbaTcUnion | 
XMI.CorbaTcExcept | XMI.CorbaTcString | 
XMI.CorbaTcWstring | XMI.CorbaTcShort | 
XMI.CorbaTcLong | XMI.CorbaTcUshort | 
XMI.CorbaTcUlong | XMI.CorbaTcFloat | 
XMI.CorbaTcDouble | XMI.CorbaTcBoolean | 
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XMI.CorbaTcChar | XMLCorbaTcWchar | 
XMI.CorbaTcOctet | XMI.CorbaTcAny | 
XMI.CorbaTcTypeCode | XMI.CorbaTcPrincipal | 
XMI.CorbaTcNull | XMI.CorbaTcVoid | 
XMI.CorbaTcLongLong | 
XMI.CorbaTcLongDouble) > 
<!ATTLIST XMI.CorbaTypeCode 
%XMI.element.att; 

> 

< ELEMENT XMI.CorbaTcAlias (XMI.CorbaTypeCode) > 
<!ATTLIST XMI.CorbaTcAlias 

xmi.tcName CD ATA #REQUIRED 

xmi.tcld CD ATA #IMPLIED 

> 

<!ELEMENT XMI.CorbaTcStruct (XMI.CorbaTcField)* > 
<!ATTLIST XMI.CorbaTcStruct 

xmi.tcName CD ATA #REQUIRED 

xmi.tcld CD ATA #IMPLIED 

> 

<!ELEMENT XMI.CorbaTcField (XMI.CorbaTypeCode) > 
<!ATTLIST XMLCorbaTcField 

xmi.tcName CD ATA #REQUIRED 

> 

<!ELEMENT XMI.CorbaTcSequence (XMI.CorbaTypeCode | 

XMI.CorbaRecursiveType) > 
<!ATTLIST XMI.CorbaTcSequence 

xmi.tcLength CDATA #REQUIRED 

> 

<!ELEMENT XMI.CorbaRecursiveType EMPTY > 
<!ATTLIST XMI.CorbaRecursiveType 
xmioffset CDATA #REQUIRED 

> 

<!ELEMENT XMI.CorbaTcArray (XMI.CorbaTypeCode) > 
<!ATTLIST XMLCorbaTcArray 

xmi.tcLength CDATA #REQUIRED 

> 

<!ELEMENT XMI.CorbaTcObjRef EMPTY > 
<!ATTLIST XMI.CorbaTcObjRef 

xmi.tcName CDATA #REQUIRED 

xmi.tcld CDATA #IMPLIED 

> 

<!ELEMENT XMI.CorbaTcEnum (XMI.CorbaTcEnumLabel) > 
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<!ATTLIST XMI.CorbaTcEnum 

xmi.tcName CDATA #REQUIRED 
xmi.tcld CDATA #IMPLIED 

> 

< [ELEMENT XMI.CorbaTcEnumLabel EMPTY > 
<!ATTLIST XMI.CorbaTcEnumLabel 

xmi.tcName CDATA #REQUIRED 

> 

< [ELEMENT XMI.CorbaTcUnionMbr (XMLCorbaTypeCode, XMI.any) > 
<!ATTLIST XMI.CorbaTcUnionMbr 

xmi.tcName CDATA #REQUIRED 

> 

< [ELEMENT XMI.CorbaTcUnion (XMLCorbaTypeCode, XMI.CorbaTcUnionMbr*) 
<!ATTLIST XMI.CorbaTcUnion 

xmi.tcName CDATA #REQUIRED 
xmi.tcld CDATA #IMPLIED 

> 

<!ELEMENT XMLCorbaTcExcept (XMLCorbaTcField)* > 
<!ATTLIST XMLCorbaTcExcept 

xmi.tcName CDATA #REQUIRED 

xmi.tcld CDATA #IMPLIED 

> 

<! ELEMENT XMI.CorbaTcString EMPTY > 
<!ATTLIST XMI.CorbaTcString 

xmi.tcLength CDATA #REQUIRED 

> 

<!ELEMENT XMI.CorbaTcWstring EMPTY > 
<!ATTLIST XMI.CorbaTcWstring 

xmi.tcLength CDATA #REQUIRED 

> 

<!ELEMENT XMI.CorbaTcFixed EMPTY > 
<!ATTLIST XMI.CorbaTcFixed 

xmi.tcDigits CDATA #REQUIRED 

xmi.tcScale CDATA #REQUIRED 

> 

<!ELEMENT XMI.CorbaTcShort EMPTY > 
<!ELEMENT XMI.CorbaTcLong EMPTY > 
<!ELEMENT XMI.CorbaTcUshort EMPTY > 
<!ELEMENT XMI.CorbaTcUlong EMPTY > 
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<!ELEMENT XMI.CorbaTcFloat EMPTY > 

< [ELEMENT XMLCorbaTcDouble EMPTY > 
<!ELEMENT XMLCorbaTcBoolean EMPTY > 
<!ELEMENT XMLCorbaTcChar EMPTY > 
<!ELEMENT XMLCorbaTcWchar EMPTY > 
<!ELEMENT XMLCorbaTcOctet EMPTY > 
<!ELEMENT XMI.CorbaTcAny EMPTY > 
<!ELEMENT XMLCorbaTcTypeCode EMPTY > 

< [ELEMENT XMI.CorbaTcPrincipal EMPTY > 

< [ELEMENT XMLCorbaTcNull EMPTY > 

< [ELEMENT XMLCorbaTcVoid EMPTY > 
<[ELEMENT XMLCorbaTcLongLong EMPTY > 
<[ELEMENT XMLCorbaTcLongDouble EMPTY > 

<!- -> 

<!- -> 
<!- METAMODEL: Dataltem -> 
<!~ -> 

< [ELEMENT Dataltem. child (Dataltem)* > 

<!- -> 

<!- -> 
<!- METAMODEL CLASS: Dataltem -> 
<!- -> 

< [ELEMENT Dataltem.Name (#PCDATA | XMLreference)* > 

< [ELEMENT Dataltem.Type EMPTY > 
<!ATTLIST Dataltem.Type 

xmi. value ( Root | Numeric | Alphanumeric | Group ) #REQUIRED 

> 

<! ELEMENT Dataltem. Length (#PCDATA | XMLreference)* > 

< [ELEMENT Dataltem.has Value EMPTY > 
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• 



<!ATTLIST Dataltem.has Value 

xmivalue ( true | false ) #REQUIRED 

> 



<!ELEMENT Dataltem. Value (#PCDATA | XMI.reference)* > 
<!ELEMENT Dataltem.parent (Dataltem)? > 

<!ELEMENT Dataltem (Dataltem.Name?, Dataltem.Type?, Dataltem.Length?, 
Dataltem.has Value?, Dataltem.Value?, XMLextension*, 
Dataltem.parent?, Dataltem.child*)? > 
<!ATTLIST Dataltem 

%XMLelement.att; 
%XMI.link.att; 

> 
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